VERSION 5.00
Begin VB.Form FrmInDanhSachSVLop 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "In danh sach sinh vien lop - nganh"
   ClientHeight    =   2235
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   6375
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2235
   ScaleWidth      =   6375
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton btnInDanhSach 
      Caption         =   "In danh sach"
      Height          =   435
      Left            =   4920
      TabIndex        =   6
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox txtTenLop 
      Height          =   375
      Left            =   1440
      Locked          =   -1  'True
      TabIndex        =   4
      Top             =   840
      Width           =   4095
   End
   Begin VB.CommandButton btnChonLop 
      Caption         =   "..."
      Height          =   375
      Left            =   5640
      TabIndex        =   3
      Top             =   840
      Width           =   375
   End
   Begin VB.TextBox txtTenNganh 
      Height          =   375
      Left            =   1440
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   360
      Width           =   4095
   End
   Begin VB.CommandButton btnChonNganh 
      Caption         =   "..."
      Height          =   375
      Left            =   5640
      TabIndex        =   0
      Top             =   360
      Width           =   375
   End
   Begin VB.Label Label1 
      Caption         =   "Lop"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   960
      Width           =   975
   End
   Begin VB.Label lblStation 
      Caption         =   "Nganh"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   480
      Width           =   975
   End
End
Attribute VB_Name = "FrmInDanhSachSVLop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private WithEvents formLop As FrmLop
Attribute formLop.VB_VarHelpID = -1
Private WithEvents formNganh As FrmNganh
Attribute formNganh.VB_VarHelpID = -1
Private m_sMaLop As String
Private m_sMaNganh As String
Private m_objHSSV As clsHSSV
Private m_ObjADORst As ADODB.Recordset
Private ReportInDanhSachSVLop As RptInDanhSachSVLop

Private Sub btnChonLop_Click()
    Set formLop = New FrmLop
    formLop.EnableBtnChon = True
    formLop.Show 1, Me
End Sub

Private Sub btnChonNganh_Click()
    Set formNganh = New FrmNganh
    formNganh.EnableBtnChon = True
    formNganh.Show 1, Me
End Sub

Private Sub formNganh_EVENTChooseItem(ByVal manganh As String, ByVal tennganh As String)
    m_sMaNganh = manganh
    txtTenNganh.Text = tennganh
End Sub

Private Sub formLop_EVENTChooseItem(ByVal malop As String, ByVal tenlop As String)
    m_sMaLop = malop
    txtTenLop.Text = tenlop
End Sub

Private Sub btnInDanhSach_Click()
    Dim i As Integer
    Dim vLstViewItem As ListItem
    
    If txtTenLop.Text = "" Then m_sMaLop = ""
    
    Set m_objHSSV = New clsHSSV
    Set m_ObjADORst = m_objHSSV.InDanhSach(m_sMaLop, m_sMaNganh)
    
    Set ReportInDanhSachSVLop = New RptInDanhSachSVLop
    ReportInDanhSachSVLop.DataMember = ""
    Set ReportInDanhSachSVLop.DataSource = Nothing
    Set ReportInDanhSachSVLop.DataSource = m_ObjADORst
    ReportInDanhSachSVLop.Show 1, Me
End Sub

